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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL L EQUIPHENT CORPORATION, MAYNARD, MASSACHUSETTS. 


te ® 
® ® 
t ® 
® ® 
® * 
‘ OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
. N ACCORDANCE WITH THE TERMS OF OFIGENSE AND WITH THE 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS’S ANY OTHER * 
« COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
* ER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. ‘ 
a ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. ® 
® ® 
e ® 
® ® 
= ® 
ea ® 
*® ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: VAX/VMS MONITOR Utility 

ABSTRACT: 
The oy} module executes the SHOW DEFAULT subcommand 
of the MONITOR utility. It is called by the CLE (Command 
Language Editor). 

ENVIRONMENT: 
User mode, IPL 0, unprivileged. 


AUTHOR: Thomas L. Cafarella, March, 1983 


MODIFIED BY: 

V03-003 PRS1016 aul R. Sen 04-Apr-1984 14:00 
Use SPARSE to neal flueseecs and hide passwords. 

v03-003 PRS1013 Paul R. Sen 28-Mar-1984 14:00 
Give SHOW DEFAULT the abi tity to handle multiple input files. 

v03-002 PRS1011 aul R. Sen 29-F eb- 1984 14:00 
add /FLUSH_ INTERVAL quai ities 

v03-001 PRS1001 _ Paul R. Sen 27-Dec-1983 16:00 


Make default interval = 6 ter ALL classes Pseude-cless 
live requests. 
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SHODEF = MONITOR SHOW DEFAULT Command 16-SEP-1984 02:05: AX/VMS Macro V04-00 Page 
Vv04 DECLARATIONS ioe $5383 :99 ERONTOR. SREISHODEF MAR: 1 . 3) 
~SBTTL DECLARATIONS 
0000 e PSEC MONDATA, QUAD , NUEXE 
ra 3; INCLUDE FILES: 
gs 
96 SCOBDEF ; Define Class Descriptor Block 
6 SMRBDEF 3; Define Monitor Request Block 
0 rt: SMONDEF ; Monitor Recording File Definitions 
00 8 SDSCDEF : Descriptor Definitions 
09 i SIFBDEF 3; File descriptor table definitions 
ae 
0 73 ; MACROS: 
000 74 ; 
it 75 
00 6 3 
it 77 ; Local Macro Definitions 
0 78 ; 
+464 79 
000 0; 
444 1 ; ALLOC Macro = Dynamically allocate space on the stack. 
0000 4 
0000 4 eMACRO ALLOC LENGTH, RSLDESC ,RSLBUF 
8858 5 SUBL #<LENGTH+5>8<*C3>,SP 
000 § IF NB, RSLBUF 
0000 8 MOVL SP,RSLBUF 
44 88 .ENDC 
000 +4 PUSHL 
0000 0 PUSHL #LENGTH 
0000 91 MOVL SP,RSLDESC 
44 35 -ENDM ALLOC 

000 3 
8008 94 

0 95 
000 96 
000 97 


61 76 20 64 65 64 72 OF 63 65 72 00" 
65 75 6¢ 
6D 69 74 20 74 GE 65 72 72 75 63 ap 
65 74 69 GE 69 66 65 64 6E 69 6s 
41 21 3¢ 39 21 00002F *010E0000' 
31 3c 37 $2 $1 20°Sp 30 Se bt 38 
32 51 21 2F 3€ 21 Qoogv048+ 1060000" 
1 20 3p 21 58,41 21 3¢ 
¢ 39 2 000060' 0100000: 
SE 21 53 4 00006C '010E 
3 41 3 0790106 
1 3¢ 90000087 "0108 
20 20 20 40 0050090" 10 
$$ 21 51 50 20 20 20 20 9 
41 21 3¢ 36 32 21 00000085"91 
41 21 3¢ 36 32 21 g000906"910E00 
E2193 41,21 OF 
65 73 73 61 6¢ 43 000000DB'010E0000" 


A 
65 73 73 61 6C 43 000000EB'010E0000" 
65 6E 6F 6E 20 3A 73 


~~ 


5 
2 
20 
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3 
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000002A7 
QOOOOFF 
000001A8" 
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9; 
1 ; OWN STORAGE 
1 . 
1 
1 


$NAM, - 
ESA=SHOW_FILESPEC,- 
ESS=NAMSC_MAXRSS, - 
NOP=SYNCHR 


SHOW_SPEC_D: - LONG 


ERROR_QUAL: .LONG 0 


: RV_STR: -ASCIC \recorded value\ 
104 CT_STR: -ASCIC \current time\ 
105 ID_STR: -ASCIC \indefinite\ 
106 CS_SEG1: sASCID \/!IDKIAS!> = H27K!\ ; 
107 CS_SEG2: eASCID \!>/!12<!AS!> = !\ 
108 CS_SEG3: «ASCID \/!9<\ 

109 CS_SEG4: eASCID \!AS!>\ 

110 CS_SEGS: -ASCID \ = !AS\ 
111 CS_SEG6: sASCID \/!14<!AS!> 
112 CS_SEG7: eASCID \ 

113 

114 CL_SEG1: eASCID \!26<!AC!>\ 
115 CL_SEG2: eASCID \!26<!AC/!AS!>\ 
116 CLASS_HDG: -ASCID \Classes:\ 
117 NO_CLASS_HDG: .ASCID \Classes: none\ 
11 

119 SHOW_FAB: SFAB, - 

1 FOP=NAM,-=- 

1 NAM=SHOW_NAM 

SHOW _NAM: 

1 

1 

1 

1 

1 

1 

1 

1 

13 

1 

13 
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SHOW_FILESPEC: .BLKB NAMSC_MAXRSS 


. = SHOW FILESPEC 
LONG SHOW_FILESPEC 
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; Text for playback values 


Text for /BEGINNING 


Text for /ENDING 
Fixed segment 1 of FAOL control str 


; Fixed segment 2 of FAOL control str 
; Fixed segment 3 of FAOL control str 
; Fixed segment 4 of FAOL control str 
; Fixed segment 5 of FAOL control str 
; Fixed segment 6 of FAOL control str 


; Fixed segment 7 of FAOL control str 


; Fixed seg 1 of classes FAOL ctrl str 
; Fixed seg 2 of classes FAOL ctrl str 


Heading Line for classes 
Heading Line for ‘'no classes” 


; FAB for SPARSE to show filespecs 
; NAM for SPARSE 


; syntax check only (don't open file) 
; space for expanded filespec 
; descriptor for expanded filespec 


address of qualifier for filespec 
which contains a syntax error. 


SHODE F 


o 
‘= 
oO 


AOOOMMIMMUIUIVIUIVIVI EE BEES LL EE EWAS OE 


~$EP-1984 93:05:00 AX/VMS Macro V04-00 Page 5 SHO 


= MONI DEFAULT Command 1 
v04-000 SHODEF CMD ONITOR SHOW DEFAULT comman §- SEP=1 MONTOR.SRCJSHODEF .MAR; 1 (4) v04 
.SBTTL suoner CMD = MONITOR SHOW DEFAULT command 
0000 -PSECT SSMONCODE ,NOWRT,EXE 


+ 
+ 


FUNCTIONAL DESCRIPTION: 
This routine uses the SCRPKG to display Lines in response 
to a SHOW subcommand. ALL qualifiers and their current values 
are shown, as well as all selected classes. 
INPUTS: 
None 
IMPLICIT INPUTS: 
SCRDSC - Ths "pot string descriptor for buffer required by SCRPKG. 
Sie “iy PTR - pointer to the ‘‘current’’ MRB (Monitor Request Block). 
pot nter to the Qualifier Descriptors block. 
Tutb RAL DEFAU T = default value for /INTERVAL qualifier 
ALLCL_INT_DEFAULT = default value for /INTERVAL qualifier for ALL class. 
VIEWING DEFAULT = default value for /VIEWING_TIME qualifier. 
MAX_CLASS_NO - highest MONITOR class number. 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
SHOW command display is sent to the terminal. 
ROUTINE VALUE: 
RO = SS$_NORMAL, or called routine error status 
SIDE EFFECTS: 
none 
REGISTER USAGE: 
ae RI oR2,R4,R5 = scratch, ysed by MOVC3 
R 


F AOL control string n 
pointer to MRB (Monitor Request Block) 
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R8 = FRC be to Qualifier Descriptors 

RJ = an parameter List index 

R10 = address of descriptor for FAOL parameter List 
R11 = a of descriptor for FAOL control string 
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MONITOR SHOW DEFAULT Command 16-SEP-1984 02:05: AX/VMS Macro V04-00 Page 
5 a ° LT comman 5-SEP- :02: N e ‘ 3 
v04 SHODEF_CMD = MONITOR SHOW DEFAULT SEP-1984 88 $3 99 ¥no TOR. SRCISHODEF .MAR; 1 . 
189 
OFFC : : i ENTRY SHODEF_CMD, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
1 
00000000 ' EF 00000 OO'SF D0 138 MOVL #MNRS_SHOWERR,CURR_ERRCODE ; Set up signaled error code 
OOOO2AF'EF 04 oY 132 CLRL ERROR_QUAL : clear address of bad qualifier 
a 138 ; Set up a SCRPKG buffered output stream directed to SYSSOUTPUT 
13 198° 
0 oD 1 199 PUSHL #0 3; Stack qtrees identifier 
00000000 ' GF 1 Fe 1 89 CALLS O)-§ SCRSSET_OUTPUT ; Establish output stream 
03 50 § 1¢ BLBS RO,10$ ; Branch if status OK 
03¢8 1 tha 8 BRW SHD_ERR ; Else go exit with error 
i bz 10$: 
QOOOOOO0'EF 7F 00 05 PUSHAQ SCRDSC ° ; Push this routine's buffer addr 
00000000'GF 01 FB 00 39 CALLS #1,G*LIBSSET_BUFFER ; Set buffering mode 
03 50 8 O002F 0 BLBS RO,20$ : Branch if status OK 
0385 1 00 ¢ 08 BRW SHD_ERR ; Else go exit with error 
$088 590 208 
0035 11 ALLOC 40,R10,R9 ; Allocate an FAOL parameter List 
8286 \¢ ALLOC 80,R11,R3 ; Allocate an FAOL control string 
57 QO000000'EF DO 005 1 MOVL CURR_MRBPTR,R7 ; Load up ptr to MRB- : 
58  OO0000000'EF D0 4 14 MOVL QUALPTR,R8 3 «ee and ptr to qualifier descriptors 
ie 
0065 i3 3; Show /BEGINNING qualifier 
ae 
83 2F21 8F 80 bogs 20 MOVW #*A\!'/\, (R3)+ ; Move *'new-line’’ to FAOL control string 
63 QO00002F*EF 00000027'EF 8 006A 1 MOVC3 CS_SEG1,CS_SEG1+8,(R3) ; Move fixed segment into control string 
89 68 ODE 0076 é MOVAL QUALS$L_BEGTRS),(R9)+  ; /BEGINNING qual name to FAOL prmist 
0 67 7d 007 MOVQ MRB$Q_BEGINNING(R7),RO ; Test /BEGINNING defaulted ? 
OA 13 007C 24 BEQL 30$ : Branch if so 
83 4425 8F  B0 tA 5 MOVW #*A/%D/, (R3)+ 3; FAO date-time directive to ctrstr 
89 67 DE 008 § MOVAL MRBS$Q BEGINNING(R7), (R9)+ ; BEGINNING time to FAOL prmlst 
1A 11 «0086 BRB SHO_IRT : 60 set up / INTERVAL 
ot 8 308: ; /BEGINNING defaulted 
83 4341 8F +! 08 9 MOVW #*A/AC/, (R3)+ ; FAO cstring directive to ctrstr 
1¢ A? OD 08D 0 TSTL MRBSA_INPUT(R7) ; Live or Playback ? 
09 13 9 1 BEQL 40$ 3 Go do live 
89 eooceeee "Ee oF 9 3 MOVAL RV_STR,(R9)+ ; Playback -- cate ing ptr to FAOL prmlst 
P47 9 BRB SHO_INT : Go set up /INTERVA 
0098 34 408: ; Live we 
DE 0098 35 MOVAL CT_STR,(R9)+ ; “Current time’’ cstring ptr to prmlst 


89 0000000F *EF 
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4-000 SHODEF_CMD = MONITOR SHOW DEFAULT comman g7SEP P=19 3B 83: 63; 99 EMONYOR. § SHODEF .MAR; 1 ae v04 
A 7 ; 
: 38 3 Show /INTERVAL qualifier 
A 40° 
A 41 SHO_INT: 
63 O00000048'EF O0000040'EF 28 QOA $s MOVC3 CS_SEG2,CS paseve (R3) ; Move fixed segment into control string 
89 10 A8 DE OOA 4 MOVAL QUALSL_INTTRB),(R9)+  : /INTERVAL name to FAOL prmlst 
10 A? (OD 08 44 TSTL MRBSL_INTERVAL(R7) 3; /INTERVAL Sorenen 
0B ss] 08 45 BEQL 10$ 3 Branch 
83 4CS5A 8F B80 00B7 $ MOVW #*A/7L/,(R3)+ 3; FAO dec test "streettve to ctrstr 
89 10 of oY pet rt pose + * pen mpdehcttatnn: (R9I)+ BP nih meena value to FAOL prmlst 
3 Con 
it rk 10$: 3 /INTERVAL defaulted 
1C A?) 3605) =—(00C 50 TSTL MRBSA_INPUT(R7) 3; Live or Playback ? 
E 13. 00C 51 BEQL 20$ ; Go do Live 
83 4341 8F B80 00C7 26 MOVW #*A/AC/, (R3)+ ; FAO cstring directive to ctrstr 
89  OQOO00000'EF ODE Bock 5 MOVAL RV_STR, (R9)+ ; Playback -=- cstring ptr to FAOL prmlst 
1A 17 ite $2¢ 208 RB 308 : Continues eee. 
: ; tiv 
83 4CSA 8F B80 00DS5 $32 MOVW #*A/7L/,(R3)+ ; FAO gecigel directive to ctrstr 
943 A7 OA €0 OODA 257 BBS #MRBSV ALL CLASS ,MRBS$W FLAGS(R7) 25$ Special default for ALL 
89  00000000°8F 00 OODF 238 MOVL #INTERVAL_DEFAULT, cRONF S Default INTERVAL value to prmlst 
07. ~=611 Bee $2 25s gR9 30$ 3; Continue..... 
89 00000000'8F D0 44 28¢ ' MOVL #ALLCL_INT_DEFAULT,(R9)+ ; Default INTERVAL value for ALL class 
OOEF 263 30S: 
FC AD «=6DD «(OOEF§ «=6264 PUSHL <=4(R9) ; Save interval val for /VIEWING_TIME 
ae 
SOS 67 : Display a Line showing /BEGINNING and /INTERVAL 
bors 560° 
O3FB 30 OOF2 270 BSBW SHOW SINGLE : Show the Line, single-spaced 
03 50 8 OOF5S 271 BLBS RO,SAO_END : Go on to /ENDING if status OK 
O2EF 1 OOF8 272 BRW SHD_ERR ; Otherwise, go exit 


0000001C ‘EF 


00000040'EF 
9 0 As 
4C5A 8F 
18 A? 


06 
18 A7 
11 


1C A? 
00000000 * 8F 
03 
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20$: 
MOVAL ID_STR,(R9)+ 


SHO_VIEW: 


10$: 


20$: 


MOVL (SP)+,(R9)+ 
30$: 


BSBW SHOW DOUBLE 
BRW 


: S Snes /ENDING qualifier 
SHO_END: 
MOVL 4(R11),R3 
MOVL  4(R10)5R9 
MOVC3 CS_SEG1,CS_S 
MOVAL QUALSL_ENDTR 
MOVG MRB$Q_ENDING 
BEQL 10$ 
MOVW  #*A/%D/,(R3) 
MOVAL MRB$Q_ENDING 
aa BRB SHO_VTEW 
MOVW #*A/AC/,(R3)4 
TSTL § MRBSA_INPUT(R7) 
BEQL 208 
MOVAL RV_STR,(R9)+ 
BRB SHO_VIEW 


: Show /VIEWING_TIME qualifier 


TSTL  MRBSA_INPUT(R7) 
MOVL § #VIEWING_DEFAULT,(R9)+ 
B 30$ 


Sete Ge Ge Ge Be Ge te 


BLBS RO,SAO_FLUSH 
SHO_ERR 


$5:03:99 YRONYOR.e SRC eseuoberomar:1 29° 8, | 


; Point to beginning of FAOL ctrl string 
; Point to beginning of FAOL parm List 


Move fixed segment into control string 
/ENDING qual name to FAOL prmlst 

Test age ge defaulted ? 

Branch 

FAO date-t ine directive to ctrstr 
ENDING time to FAOL prmlst 

Go set up /VIEWING_TIME 

/ENDING defaulted — 

FAO cstring directive to ctrstr 

Live or Playback ? 

Go do live 

Playback -=- cstring ptr to FACL prmlst 
i. set up /VIEWING_TIME 


| 
hinde finite’ cstring ptr to prmlst 
| 
| 
| 


; Move fixed segment into control string 
; Qualifier mame to FAOL prmlst 


FAO decimal directive to, ctrstr 
{VIEWING fn defaulted ? 


10 hi 
— BRS VIEWING. TIME(R7), ods H “VIEWING, TIME value to FAOL prmlst 


Con 

VIEWING, TIME Gotan ted 
She I oh Laybac 

Default VIEWING. TIME value to prmist 
PERS En nnes 


Liv 
Bee saved /INTERVAL value to prmlst 


: Display a Line showing /ENDING and /VIEWING_TIME 


; Show the Line, double-spaced 
: Go on to file qualifiers if status OK 


; Otherwise, go exit 
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5 ; Show /FLUSH_INTERVAL qualifier 


SHO_FLUSH: 
MO 


53 04 AB 00 VL 4(R11),R3 ; Point to beginning of FAOL ctrl string 
59 04 AA 00 MOVL 4(R10) ,R9 ; Point to beginning of FAOL parm List 
63 Q0000087"EF OO00007F'EF 28 MOVC3 CS_SEG6,CS_SEG6+8,(R3) ; Move fixed segment into control string 
89 18 A8 ODE MOVAL QUAL$L FLUSH (RB) , (R9) + : Qualifier name to FAOL prmist 
83 4CSA BF B80 MOVW #*A/7L7,(R3)+ ; FAO decimal directive to ctrstr 
14 A7 be TSTL MRBSL_FLUSH(R7) ; /FLUSH defaulted ? 

06 1 BEQL 10$ ; Branch if so 
89 14 A7 00 MOVL MRBSL_FLUSH(R7),(R9)+ ; FLUSH value to FAOL prmlst 

07~=—11 BRB 30$ ; Continue..... 

108: ; /FLUSH defaulted 


89 00000000'°8F 00 MOVL #FLUSH_INT_DEFAULT,(R9)+ ; Default FLUSH value to prmlst 


30$: 


Display a Line showing /FLUSH_INTERVAL 
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034A 30 BSBW SHOW DOUBLE ; Show the Line, double-spaced 
03 50 =€8 A BLBS RO,SAO_FILES ; Go on to file qualifiers if status OK 
023A =o BRW SHD_ERR ; Otherwise, go exit 
0 ; 
0 : Show qualifiers which always have eteing values 
0 3; (if. they are present). These are typically qualifiers 
4 ; with file specs as values. 
0 ° 
: SHO_FILES: 
0 ALLOC 8,RO,R6 ; Allocate a pair of longwords to pass 
D 3 eee aS input parameter in R6 to 
p > se. SHOW_FILE_QUAL 
D : At this point, MRBSA_INPUT contains the address of the IFB table, or 0 
BD ; if there is no current default. (Later, MRBSA_INPUT will be changed 
BD 3 to be the address of a single file spec descriptor, unless we are 
4 ; doing a multi-file summary.) 
66 1C A? 00 BD ‘ MOVL MRBSA_INPUT(R7) , (R6) ; Load addr of qualifier value descr 
04 A6 28 AB OE C1 MOVAL QUALSC_INP(R8) ,4(R6) ; Load addr of qualifier name descr 
0045 30 C6 74 BSBw SHOW IRPUT_QUAL ; display input qualifier 
3F 50 «=«ED SF ? BLBC RO,SF_ ; Go return if error 
66 $s A7 00 cc 5§ MOV MRBSA_RECORD(R7) , (R6) ; Load addr of qualifier value descr 
04 A6 «38 AB bE D0 «6378 MOVAL  QUALSC_REC(R8) ,4(R6) : Load addr of qualifier name descr 
00D6 DS 79 BSBW SHOW_FILE_QUAL : Show a Line for /RECORD 
30 50 +9 4 9 BLBC RO,SF_ ; Go return if error 
46 $ A7 00 DB 56 MOVL MRBSA_DISPLAY(R7),(R6) ; Load addr of qualifier value descr 
04 Ab 0 A8 BE DF 4 MOVAL  QUALSC_DISP(R8),4(R6) =: Load addr of qualifier name descr 
00C7 ( E4 4 BSBW SHOW_FTLE_QUAL ; Show a Line for /DISPLAY 
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; Go return if error 


Load addr of qualifier value descr 
Load addr of = ge pene descr 
Show a Line for /SUMM 

Go return if error 


Load addr of Guat isier value descr 
Load addr of qualifier name descr 
Show a Line for /COMMENT 

Branch on error 

Go on to show classes if no errors 


Go log error and return 
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v04- SHODEF_CMD = MONITOR SHOW DEFAULT comman ets Ti $5 :93:99 UMONTOR. SREISHODEF OMAR: 1 . (10) 
E 401 SHOW INPUT QUAL: 
58 DD 60 PUSHL R8 ; save R8 so we can use it as scratch 
58 01 00 1 4 MOVL #1,R8 3; init input file counter 
53 04 AB 00 1 404 MOVL 4(R11),R3 ; Point to beginning of FAOL ctrl string 
59 oe AA 00 1 405 MOVL 4(R10) ,R9 ; Point to beginning of FAOL parm List 
63 OO000060'EF O0000058"EF 28 18 188 Moves) CS SEG$,CS_SEG3+8, (R3) ; Move fixed segment into control string 
66 D5 4 TSTL (RB) ; Qualifier present? 
7 8 9 408 BNEQ 5$ ; Branch if yes 
83 4F4E BF B80 8 8 re 5 MOVW #*A/NO/,(R3)+ ; No == move NO to control string 
63 QOOO0006C'EF  Q0000064'EF 28 0 411 MOVC3 CS_SEG4 gs SEG4+8,(R3) ; Move fixed segment into control string 
89 04 Ab o9 ¢ 41g MOVL 4(R6),(RO)F ; Qualifier name descr to FAOL prmlst 
66 OD 4 4) TSTL (R6) ; Qualifier present? 
02 12 0262 414 BNEQ 7$ : Branch if yes 
19 11 8 a I - BRB 10$ ; No, go straight to SHOW_DOUBLE call 
55 42 A7 QA b5e6 417 MOVZBL MRBSB_INP_FILES(R7),R5 ; Number of input files to R5 
oi.60633—SCté@OST osen 418 CMPL R5,#1 3; How none input files? 
16 14 psed rh BGTR 12$ ; branch if there are > 1 input files 
024F 631 ; If we pet here, only one file was specified for /INPUT, so just 
Oser : ¢ ; do a SHOW_DOUBLE for that file and the /INPUT qualifier, and get out. 
63 00000079"EF Q00000071'EF 28 at 154 MOVC3 CS_SEGS,CS_SEG5+8,(R3) ; Move fixed segment into control string 
89 0086 00 0258 425 MOVL a(R6), (R9)F 3; Qual value descr to FAOL prmist 
O25F 426 10$: 
O2SF 427 
O25F 428; : : : 
OS3F $$3 ; At this point, either 0 (/NOINPUT case) or 1 file was specified for input. 
025F 431 ° 
0292 30 O25F $36 BSBW SHOW_DOUBLE ; Show the Line, double-spaced 
0045 31 o56¢ 43 BRW 25$ 3 get out 
026 434 
0265 435; 2 : 
0265 436 ; Begin multi-file summary loop 
0265 437; 
0265 438 12s: 
55 DD 0265 439 PUSHL R5 ; Save count of # of input files 
01 58 »D1 0267 440 CMPL R8,#1 ; Are we on file #1? 
0E 12 026A 441 BNEQ 15$ : Branch if we have passed file #1 
026C 103 ; If we qot here, we are doing a multi-file summary and we are processing 
a3e¢ ree : input file #1. 
63 00000079°EF Q00000071"EF 28 026C rr MOVC3 CS_SEGS,CS_SEG5+8,(R3) ; Move fixed segment into control string 
OC 11 0278 44 BRB 188 ; skip past alternate control string 
BgrA 448 15$: 
8 7A 449; 
7A «6450 ; If we got here, this is a multi-file summary 
027A 451 ; and we have processed the first file in the List already. 
8 gn $26 3 so we use a different FAO control string 
63 Q000009D'EF O000009S5"EF 28 0 ra $23 188 MOVC3 CS_SEG7,CS_SEG7+8,(R3) ; Move fixed segment into control string 
55 8&D0 86 $28 POPL RS 3 get R5 back (pushed to save from MOVC) 
89 0086 00 0289 45 MOVL a(R6),(R9)+ ; Qual value descr to FAOL prmlst 
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3 move to next IFB 


Is this the last input file? 
branch if not 

Show the Last Line, double-spaced 
and get out 


Show the Line, single-spaced 

Point to beginning of FAOL ctrl string 
Point to aageenres of FAOL parm List 
- to next input file. 

oop 


Restore R8 
Return with status in RO 
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SHODEF - MONITOR SHOW DEFAULT Command 16-SEP-1984 02:05: AX/VMS Macro V04-00 Pa 13 SH 
5007600 SHODEF_CMD = MONITOR SHOW DEFAULT comman oe 7 §5:93:99 ERONTOR. SREISHODEF MAR: 1 - (11) vO 
AE 476 SHOW_FILE QUAL: 
$6 8 A 47 TSTL (R6) ; Qualifier present? 
1 8 $78 BEQL SHOW_QUAL : Branch if not 
BS a0 | 
Be 481 ; Use SPARSE to get filespec with defaults applied | 
B 4 § 3; and password removed from access control otring. Note that the file 
B 485 ; does not exist a, but SPARSE will still do the work of 
8 : : ¢ ; applying defaults and removing the password, if necessary | 
50 01 0dO 028 iB , MOVL #1,R0 3; set up for post-indexing 
086 90 6 5 48 MOVB a(R6),- 
0000012C EF BB 488 SHOW FAB + FABSB_FNS =; plug FAB with filespec Length 
00000124°EF 00 8640 00 O2BD 489 MOVL a(R6yCROJ,- 
0206 490 SHOW_FAB + FABSL_FNA ; plug FAB with filespec address 
0 ce 491 SPARSE FAB=SHOW_FAB ; do the parse 
1¢ 50 E€8 0O2D 49 BLBS 0,10$ 3; Branch if OK 
00000000'8F 50 Di 0206 49 CMPL RO, #RMS$_SYN 3 tt Lespes syntax error? 
01 13 O2DD 494 BEQL 5$ ; Branch if so 
05 St44 $32 RSB 3 unknown error, return with status 
02E0 497; file specification syntax error processing: save the bad qualifier name, 
02EO0 498 ; to be reported after SHOW Cisplay finishes. Note that we can only 
5 e3 rh 3; report on one syntax error per SHOW. 
OOOOO2ZAF'EF D5 03e0 aot Ss: TSTL ERROR_QUAL ; has there already been a syntax error? 
12 0266 208 BNEQ SHOW_GUAL ; branch if so (we can only report first err 
QOOOO2AF'EF 04 AB 00 bees 20? MOVL A ; load address of offending qualifier 
12 2«#«2121 03¢0 203 108 BRB HOW_GUAL ; display unparsed spec containing error 
Q00000153°EF 9A O3t 3 507 ‘ MOVZBL SHOW_NAM+NAM$B_ESL,- ; Plug descriptor with Length 
000002A7'EF O2F 508 SHOW_SPEC_D 3; passed back from SPARSE 
66 OO00002A7"EF DE O2FD 509 MOVAL SHOW_SPEC_D,(R6) 3; point to parsed spec descriptor 
0304 510 ; and fall through to SHOW_QUAL 
Bane ny SHOW_QUAL : 
53 04 AB DO 0304 218 MOVL 4(R11),R3 ; Point to beginning of FAOL ctrl string 
59 04 AA 00 b308 a1 MOVL 4(R10) ,R9 : Point to beginning of FAOL parm List 
63 00000060°EF O0000058"EF 28 030C 218 MOVC3 CS_SEG3,CS_SEG3+8,(R3) ; Move fixed segment into control string 
66 DS 0318 51 TSTL (RB) 3; Qualifier present? 
05 12 O31A 518 BNEQ 10$ :; Branch if yes ‘ 
83 4F4E BF B60 8 Ve 213 108 MOV #*A/NO/, (R3)+ : No -- move NO to control string 
63 OOO0006C°EF  O00000064'EF 28 1 : 1 ; MOVC3 CS_SEG4,CS_SEG4+8,(R3) ; Move fixed segment into control string 
89 04 A6 DO D 6 MOVL 4 (R6),(RO)F : Qualifier name descr to FAOL prmlst 
o ; 1 TSTL (R6) ; Qualifier present? | 
he ; 4 BEQL 208 ; Branch if no . 
63 00000079°EF O0000071°EF 28 5 MOVC3 CS_SEGS,CS_SEG5+8,(R3) ; Move fixed segment into control string 
89 66 DO 4 $ MOVL (RB), (R9)+ : Qual value descr to FAOL prmlst 
44 3 
re : 3; Display a Line showing current qualifier 
44 } 
44 2 208: | 
| 
| 
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O1AD 38630 O37 a3 BSBw SHOW_DOUBLE ; Show the Line, double-spaced 


47 
05 47 5 RSB ; Return with status in RO 


aS 
So 
ad 


FFD8 55 ACBW #MAX_CLASS_NO,#32,R5,20$ ; Loop to process next chunk 
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v04- SHODEF_CMD = MONITOR SHOW DEFAULT comman g-sEF 7138 85: 83: 99 YRONTOR. & R.S SSHODEF .MAR: 1 . (12) 
4 7 I 
r H SCAN_CLASSES: FLL 
4 3 
4 40 ; Scan the MRBSO_CLASSBITS field of the MRB to determine the selected, 1D, 
4 41 ; classes. Creaté a vector of bytes containing a class number for IF 
4 46 ; selected class. Then show the selected classes by calling SHOW_ cf asses IFE 
4 43 j with the vector as input. ne 
4 45 : IFE 
r 6 3 REGISTER USAGE: Mt 
4 48 : RO,R1 = scratch LIE 
4 49 ; Re = bit field starting position for FFS instruction MAY 
4 50 ; R3 = bit field size for Fs instruction MAX 
034 51; R4 = class number determined q by PFS instruction MIN 
034 226 ; R5 = index into MRBSO. CLAS MNF 
034 553; R6 = pointer to byte Gector al class numbers MNF 
8 4 228 : R7 = pointer to MRB (Monitor Request Block) MNF 
4 55 ; R8 = pointer to Qualifier Descriptors MINA 
034 556 ; R9 = class counter MNF 
0348 557; R10 = address of descriptor for FAOL parameter List MNF 
Oee 228 : R11 = address of descriptor for FAOL control string a 
0348 560 © MNF 
0348 561 ALLOC MAX_CLASS_NO+1,R0,R6 ; Get a © byte vector for class punbere MNF 
035D 26¢ aie shown, and point R6 to it MNF 
59 D4 035D 56 CLRL RO : init’ class counter MNF 
b3er Se rawr 
Ooet 266 3; Use FFS instruction to scan the class bits in the MRB, fillin MNA 
35F 567 ; the above byte vector with a class number for each class found. MNR 
O35F 568 ; RY contains the count of classes found. MNF 
O35F 569; 
Baer 570 ; 
55 04 5F 0 s4571 CLRL R5 : Init starting bit position 
361 278 20$: MNF 
53 20 od0 0361 £57 MOVL #32,R3 : Init bit field size 
0364 574 ; NOTE -- must handle in 32-bit chunks MNF 
2 Ss tre 575 MOVL R5,R2 : Init start position of next chunk 
0367 278 30$: MNF 
54 32 a7 53 52 EA 0367 57 FFS R2,R3,MRB$O_CLASSBITS(R7),R4 ; Search for next class number MNF 
036D 578 3 R4 senteine class no. if found MNF 
12 13 036D 579 BEQL 40$ 3; Branch if none found this chunk MNF 
6649 28 90 ba¢t 0 MOVB R4,(R6)CRII : Move class no. into byte vector MNF 
9 D6 a 1 INCL Rg 3; Count this class 4 
>. 2 32 4 ADDL R2,R3 : Compute next startin MNF 
52 54 9} C1 78 4 ADDL #1,R4,R2 i ++» position and field size MNF 
53 2 ce 7C 5 SUBL R2,R3 3... for this chunk MNE 
4 if 36 BRB 30$ : Go search rest of chunk oe 
1 MANE 
8 88 _ 
MANE 
MINE 
ANI 
MINI 
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SHODEF = MONITOR SHOW DEFAULT Command 16-SEP-1984 :05: AX/VMS Macro V04-00 Page 1 
vivetitt SHODEF_CMD = MONITOR SHOW DEFAULT comman ety 7 5:85:99 ERONTOR. SREISHODEF MAR; 1 . A$ 
90 ; 
3 ; At this point, R6 points to a byte yector consisting of the 
3 ; class numbers for classes to show. R9 contains the count of 
95 ; classes to show. 
94; 
32 
3 ; Show class-names and their associated display qualifiers. 
99 ° 
5B ODD 600 PUSHL R11 3; Stack addr of descr for FAOL ctrl str 
2A DD o8 PUSHL R10 3; Stack addr of descr for FAOL prm List 
6 OD 6 § PUSHL R6 3; Stack addr of byte vector of class nos. 
- 59 dD O o PUSHL R9 3; Stack count of classes to show 
OOOOO4IE'EF O04 FB Q3 604 CALLS #4,SHOW_CLASSES ; Show all glasses and their ... 
83 605 3 se. associated display qualifiers 
4F 50 €9 03 906 BLBC RO,SHD_ERR ; Exit if error 
0398 608 
0398 609 ; Print one final blank Line for readability 
gg fie 
$398 o1¢ ALLOC 8,R0,R1 ; Get quadword for dummy descr 
61 D4 O3A8 61 CLRL (R11) : Make Length 
04 Al 04 Al DE OQ3AA 614 MOVAL 4(R1),4(R1) 3 eee and pdint it to itself 
1 OD bear 615 PUSHL #1 3; Stack single spacing indicator 
1 0D 0381 918 PUSHL R1 3 eee and dummy text descriptor 
00000000 ' GF 9¢ FB 0383 61 CALLS #2,G*SCRSPUT_LINE ; Put blank Line to the terminal 
2D 5 E9 Been 618 BLBC RO,SHD_ERR ; Exit if error 
03B8D 619 
038d Sol 
038D 6 § 3; SHOW subcommand processing complete 
aoe 
ee us 
0380 627 ; See if we encountered a filespec syntax error on SHOW_FILE_QUAL parse, MRB 
eo ° 8 3; and if so, report it. -~ 
50 00000000‘ 8F 00 $ D 630 MOVL #SS$_NORMAL ,RO 3 Assume success status MRB 
OQOOOO2AF'EF 0D C4 «631 TSTL ERROR_QUAL 3 was there a syntax error? ARB 
13 O3CA 6 ¢ BEQL SHD_RET 3 No, return with success ; MRB 
O00002AF "Ef DD cf 6 PUSHL ERROR_QUAL ; push address of qualifier descriptor ARB 
E D4 D 634 CLRL =(SP) No secondary code MRB 
00000000'8F 0D D4 «= 635 PUSHL #MNRS_FILSYNERR : Push syntax error status code MRB 
00000000 ‘EF 33 fe DA 6 $ CALLS #35,MON_ERR NAM 
50 00000000'8F 0D El 6 MOVL #MNRS_FILSYNERR,RO ; Get status to caller NAM 
18 «11 6 e } BRB SHD_RET ; Go return = 
EA 640 SHD_ERR: ; Log error and return NAM 
50 DD EA 641 PUSHL R ; Bad status on stack NAM 
- a EC ak PUSHAL (SP) 3; Stack pointer to bad status NAP 
00000000'°8F ODD ef 64 PUSHL #MNR$_SHOWERR ; Stack MONITOR failing status code NAM 
9 00°EF en F 644 CALLS #2,MOR_ERR ; Log the error NAP 
0 000'8F oD it8 $73 MOVL #MNRS_SHOWERR,RO ; Get status to caller my 
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v0a-B00 SHODEF 


‘3s 


, r 7 SHD_RET: ; Return point from SHODEF_CMD routine 

01 6B r i PUSHR #*M<RO> ; Save return status 
00000000'GF 00 FB r ; i CALLS #0,G*LIBSPUT_BUFFER ; Output SCRPKG buffer & stop buffering 

00 oD 0408 6 : PUSHL #0 : Indicate ‘'clear buffer mode"’ 
QOO00000'GF 01 FB O40D 654 CALLS #1,G*LIBSSET_BUFFER 3 «ee and tell SCRPKG to clear it 
Q0000000'GF 00 FB rth 02? CALLS #0.G*SCRSSTOP OUTPUT 3; Stop output stream 

01 # ~BA S18 657 POPR #*M<RO> ; Get back SHODEF_CMD return status 

04 0410 658 RET ; Return with status in RO 
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-SBTTL SHOW_CLASSES = Show all selected classes 


om 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


SHOW_CLASSES fills out the FAOL parameter List and 
control string with the information required to 

dis bay each of the classes res Lousd by the display 
qualifier for each. It accepts as input a count of 
the number of classes to show and a byte vector 
containing a class number for each class. 


INPUTS: 
4(AP) 


8(AP) = address of byte vector containing a class number 
for each selected class 


count of classes to be shown 


12(AP) = address of descriptor for FAOL parameter List 
16 (AP) 


address of descriptor for FAOL control string 


IMPLICIT INPUTS: 
CDBHEAD - table of contiguous CDB's, one for each class. 


DDDPPRDPPRPAA AAA AAPA AA AAA AA AAPA AAA AO 
500909090909 09 09 09 0009 SI NIN NSIS NNN IPA AAA AOAOAOO 
OOO NAUE WN O OD NAUE WN" O OONOAOU EW" O 


CLASSTABLE = table of contiguous quadwords, one for each class. 
Each quadword consists of a pointer to a counted 


OOOOOCOCCOOOOSOOOOOOCOCOCOCOOOOOCOOOOOOOOOOOOOOOCOO ma 


PRR RRR RRR REP RRR RRP RRR ERE PRR RRP PPR P PPP PPP PPP PPP PPP PPP Pre OA 


MM MMMM MMMM MMMM M MMMM MMMM MMMMMMMMMMMMMMmMmMMmmMmmmMmnmnmimMmmimmMnmmmmmrrnicnwen coo 


691 ASCII string for the class name followed by a 
4 Longword containing the class number. 

694 PROCD_TABLE = table of sone tquaye lLongword pointers, one for 
695 each PROCESSES display qualifier. Each pointer 
696 points to a string descriptor for the qualifier 
44 name. 

99 STAT_TABLE = table similar to PROCD_TABLE but instead points 
ooo to statistic qualifiers for standard classes. 
re OUTPUTS: 

7 

704 none 

705 

re IMPLICIT OUTPUTS: 

708 FAOL control string and parameter List updated. 
og ROUTINE VALUE: 

ns RO = SS$_NORMAL, or called routine error status. 
714 

715 

716 none 


SIDE EFFECTS: 
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SHODEF = MONITOR SHOW DEFAULT Command SEP=1984 4 03: 05 £90 VAX/VMS Ma put 
00 SHOW_CLASSES = Show all selected sheeeed ~3Eb=1 984 2: MONTOR.S SHODEF MAR; 1 a 
41E 721 
OFFC 36 f ¢ «ENTRY SHOW _CLASSES, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> | 
SA OC AC DO 4 724 MOVL 1gtAe}- Rio ; Load ptr to descr for FAOL parm List 
5B 10 AC 00 r 4 5 MOVL 160A ; Load ptr to descr for FAOL ctrl str 
04 ag DS 04 7 § TSTL 4 (AP) ; Test number of classes 
0 12 04628 7 5 BNEQ 10$ : Branch if at least one 
0048 31 0420 7 BRW 50$ ; None -= go tell user 
O230 31; 
e 8 § Display ‘‘Classes:"' heading 
Bb wos, 
01 DD 04630 736 — PUSHL : Stack “'single-spacing’’ indicator 
QOOOOOD3S"EF OF bess 737 PUSHAL i SS_H 3 ee. and text descriptor 
00000000'GF 02 FB 04 738 CALLS : reescRspuT LINE ; Put header to the terminal 
5250 €9 Reze £73 BLBC C_RET ; Exit if error 
57 D4 0442 741 CLRL R7 : Init byte vector index 
58 04 Bree re ons CLRL R8 : Indicate this class at beg of line 
58 DS 0446 744 j TSTL R8 3; Need to start this class on new Line? 
ce.” Rete Se BNEQ 30$ ; Branch if not 
59 04 AA DO 044A 747 MOVL 4(R10) ,R9 ; Point to beginning of FAOL parm List 
53 04 AB DO O44E 748 MOVL 4(R11) ,R3 ; Point to beginning of FAOL ctrl string 
83 20 90 Bees 749 MOVB #*A/ /,(R3)+ ; Start classes in column 2 of screen . 
58 03 00 beee £20 30s MOVL #3,R8 3; Init “classes per Line’’ count 
50 O08 AC DO 0458 138 "  MOVL. = BAP) ,RO : Get addr of byte vector 
52. 6047 9A 045¢ 75 MOVZBL (RO)CR7I,R2 : Get class number for BUILD_FAOL_ARGS 
0032 30 6760 754 SBW BUILD_FAOL_ARGS 3 ae FAOL pralse &@ ctrstr 4 this class 
046 755 3; NOTE -- this rtn destroys REGS RO-R2 
0463 756 ; see and R4-R6. Also updates R3 and RY 
58 D7 0463 757 DECL R8 ; Update ‘classes left this Line’ 
06 12 0465 £758 BNEQ 40$ : Branch if at least one left 
ra 
0467 761 : Show a Line of 3 classes 
Bsr fee 
9086 30 0467 764 BSBW SHOW bie : Show the Line, single-spaced 
27 5 E9 rer £03 we BLBC RO,SAC_R ; 
D4 57 04 AC F2 0460 767 + ~~ AOBLSS 4(AP),R7,20$ ; Loop back to do next class 


Exit if error 
| 
| 
| 


ee 


aI 
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5 Dd 472 769 TSTL R8 ; Classes remaining to be shown? 
$ 03 474 776 BEQL SHC_NORM : Branch if not . 
476 77 
$28 oe : 
47 773 ; Show final class Line 
476 774; 
476 775 
0077 30 0476 £76 BSBW SHOW SINGLE ; Show the Line, Singte-spered 
12 11 0479 «77 BRB SHC_RORM 3 «+. and return with normal status 
0478 ore 
0478 779; 
pete 780 ; Show ‘'No classes’ heading 
47B 781; 
0478 ree 
0478 783 50$: 
DD 0478 784 PUSHL #1 ; Stack ‘’single-spacing’’ , indicator 
Q00000E3" F DF 44) 785 PUSHAL NO_CLASS_HDG 3 «ee and text descripto 
00000000" +. 7 % FB beg 786 CALLS #27G*SCRSPUT_LINE ; Put header to the terminal 
E9 Q48A 787 BLBC RO,SHC_RET ; Exit if error 
048D 788 
048D 789 SHC_NORM: : 
50 00000000'8F 00 Beee oy MOVL #SS$_NORMAL ,RO :; No failing status hit 
0494 RET 


; Return with status already in RO 
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BUILD_FAOL_ARGS subroutine. 
This subroutine annexes FAOL directives to the control 


string, and parameters to the parameter List for the 
current class. 


REGISTER USAGE: 


RO,R1 = scratch 

R = class number of current class (input) 

R = next available byte in FAOL control string (input) 
R4,R5,R6 = scratch 

R9 = next available longword in FAOL parameter List (input) 


NOTE -- R3 and RO are updated. RO-R2 and R4-R6 are destroyed. 


BUILD_FAOL_ARGS: 


Move class-name cstring pointer to FAOL parameter List 


So 

~ 

Pa 
©00909 09.00 09 C9 0d 08 0D 09 Od C9 09 CD CD Cd Od OD C9 Cd GD G9 C9 CD CD CD CD C9 CD CD CD CD OD CD OD CD C9 CD CD CD. 0D 09 CD 0D 09 09 CD09 090909 III 
WOE SESE EES SWAIN WINIWIWIWINIDINIPINININININID 2 2 9 PO OP HH MD DOODOOCOOOCOOOOONO 
—DODWNOAUE WN OOWONAUE WN 9 OONOAUE WIN 2 O OO NAUE WIN O OD NOAOUE WN OUONOM 


50 OQ0000004°EF ODE MOVAL CLASSTABLE+4,R0 ; Get addr of table of class quadwords 
50 6042 7D 049C MOVQ (RO) CR2],R0 ; RO gets class-name cstring ptr 
5 dO Ren MOVL RO, (R9)+ 3; Move it to FAOL parm List 
ae} : Obtain CDB address for this class 
BAB 
56 52 00000053 8F C5 Q4A3 MULL3 M#CDBSK_SIZE,R2,R6 ; Get CDB offset from class number 
04AB ; NOTE = this rtn no longer needs class num 
56 O0000000°EF46 9E peat MOVAB CDBHEADCR6],R6 ; Get CDB address 
048 5 
Oc83 3; Move appropriate segment of FAO directives into FAO control string 
048 3 and move address of descriptor for display qualifier to FAOL parm List, 
0483 3 if one exists. 
ga 
50 44 A6 QA 048 MOVZBL CDBS$B_ST_CUR(R6),RO Ot a Steph ay qualifier L pee 
09 48 A6 04 €0 048 BBS #CDB$V_STD,CDBSL “FLAGS (RO) s 10 f standard clas 
56 OO000000'"EF DE 048 MOVAL PROCD _TABLE,R R6 3 Get t ptr to PROCESSES dis lay qual table 
07. =««11 Bete 108 BRB 20$ 3 «+. and go get desired element — 
56 00000000'EF DE 04C¢5 "  MOVAL = STAT_TABLE,R6 : Get ptr to statistic qualifier ... 
rt} 208 3... table for standard classes 
6640 05 Q4CC : TSTL (R6) CRO] s is there a quel defined for this stat? 
1 13 O4CF BEQL ; Branch if n 
89 664 8 4D1 MOVL ett} (R9)+ : Move dente | ote to FAOL prmist 
63  000000C6'EF atti 2 4D5 MOVC3 ct. SEG »CL_SEG2+8, (R3) ; Move fixed segment into ctrl string 
C 1 ra ARB 408 ; Go return 


Show Sli oe an a: classes  * Ep =}382 83; 82: 9 FRONY OR. SRCISHODEF MAR: 1 Ses a v0. 


308: 
63 OO0000B5'EF  O00000AD'EF MOVC3 CL_SEG1,CL_SEG1+8,(R3) Pucsony fixed segment into control ... 
«. string (no display qualifier) 
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SHOW_CLASSES = S 


4F 28 3 
4F 59 ; 
OF 60 ; 
4F 61 ; 
4F 6¢ 3 
4F 3 3 
GF 64 ; 
Bere 65 ; 
GF 66 ; 
Bere 67 
01 OD fo 8 = 
02. «11 rh $3 
O4F4 71 
O4F4 Le: SH 
02 ODD O4F4 7 
O4F6 74 
O04F6 75 SH 
50 04 AB DO O4F6 76 
68 53 50 C3 O4FA 877 
04 AA DD O4FE 878 
6B DF 0501 £879 
00000soB'EF 03 FB 0503 # 880 
05 OSOA 881 


EF 
how 


AULT Command 
all selected classes 


rout 
single-spacin 
y EF entry, R 
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SHOW SINGLE and SHOW DOUBLE subroutine. 
The 2 n 


and double-spacing, respectivel 
points to the FAOL parameter 
oints to the FAOL control string descriptor an 


e names are alternate entry points to show a line with 


(ise descriptor 
d R3 to the next 


available byte in the control string. The routine updates the control 
string descriptor, destroys R1, and returns status in RO. 


OW_SINGLE: : 
PUSHL #1 ; 

SHOW_ COMM ; 

OW_DOUBLE : : 
PUSHL #2 ; 
OW_COMM: 3 
MOVL 4(R11),RO : 

SUBL3 RO,R3,(R11) : 

PUSHL  4(R105) : 
PUSHAL (R11) : 

CALLS #3, SHOW_A_LINE : 


Show a line and advance one Lin 
Stack ‘’single-space’’ indicator 
Join common code 


Show a Line and advance two Lin 
Stack ‘‘double-space: indicator 


Common point for 2 entry points 
Get address of FAOL control str 
Compute actual length 

Stack addr of FAOL parm List 
Stack addr of FAOL ctr str desc 
Display one Line of SHOW output 
Return with status in R 
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v04- SHOW_A_LINE = Put a Line of SHOW to term 5-SEP=-19 MONTOR.SRCJSHODEF .MAR; 1 (20) 
? -SBTTL SHOW_A_LINE = Put a Line of SHOW to terminal 
5 s+ 


FUNCTIONAL DESCRIPTION: 


508 
508 
ae 
508 : SHOW ALINE sends one Giselay Line of SHOW output to the 
0508 90 ; terminal via the SCRPKG. The Line to display is defined 
0508 91 ; by an $FAOL control string and parameter List, both of 
0508 92; which are input to this routine. 
0508 93 ; 
$208 oe 3 INPUTS: 
5208 S3 : 4(AP) = address of descriptor for $FAOL control string. 
$208 +43 : 8(AP) = address of SFAOL parameter List. 
8208 ono 3 12(AP) = number of display Lines to advance after showing a Line. 
e+ 4 ; IMPLICIT INPUTS: 
B208 ope ; OUTDSC = quadword string descriptor for $FAOL output buffer. 
0508 906 ; OUTPUTS: 
0508 907; 
0508 908 ; none 
050B 909 ; 
0508 910 ; IMPLICIT OUTPUTS: 
0S5S0B 911; 
0508 aig : SHOW Line sent to Screen Package. 
0508 (913; 
0508 914 ; ROUTINE VALUE: 
050B 915; 
0508 916; RO = SS$_NORMAL, or called routine error status. 
050B 917; 
050B 918 ; SIDE EFFECTS: 
0508 919; 
0508 920; none 
0508 921; 
050B 9 ¢ i-- 
0508 =9 
0004 P43 3 : ENTRY SHOW_A_LINE,“M<R2> 
0500 9 § ALLOC  10,R1,R2 ; Allocate a descriptor & a word 
OS1A 9 SFAOL_S CTRSTR=84(AP), OUTLEN=8(R2), - ; Format the SHOW Line 
051A 928 OUTBUF=OUTDSC, PRMLST=a8(APS 
i 50 9 05 929 BLBC R SAL Ret ; Exit if error 
62 8 A2 Cc 05 930 MOVZWL 8 (R2), TR2) 3; Move actual text len to descr 
04 A2 00000004'EF D0 05 931 MOVL QUTDSC +4, 4(R2) : Move addr of text to descr 
Oc AC DD OS3SF 9 ¢ PUSHL 12(AP) ; Stack spacing indicator 
gs DF 0542 9 PUSHAL (R2) 3 «2. and text descriptor : 
00000000'GF 0 FB re} 2 : CALLS #2,G*SCRSPUT_LINE ; Put the SHOW Line to the terminal 
Bm 4 50 €9 0548 9 $ BLBC RO,SAL_RET ; Exit if error 
50  00000000°8F 00 346 ; f MOVL  &#SS$_NORMAL,RO : No failing status hit 
555 939 SAL_RET: 


VOu-B00 


- MONITOR 
SHOW_A_LIN 


” BE 


‘zy 


34 
4 
4 


DEF AU 
Put a 


| 


Com 
ne o 


' 


H 15 
nd 1 
SHOW to term 


Sx$P-198s 98:03:98 


AX/VM 
MONTOR. 


SRESSHO 


4o 
BEF B aR: 1 


3; Return with status in RO 
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J 15 
SHODEF = MONITOR SHOW DEFAULT Command 16-SEP-1984 02:05: AX/VMS Macro V04-00 
Symbol table 97 3FE= 1384 §3:03:95 UMONTOR. SRCISHODEF MAR; 1 
ILE_HDR = 00000000 MNR_HOMSL_ELTCT = 0 
FLUSA_INT_DEF AULT eeeeeree = X 03 MNR_HOMS$L_RESERVED = 4 
CCASS_PRE = 00000000 MNR-HOM$S_HOM_CLASS_PRE = 8 
1D_STR Q00001C R 01 MNR_PROSB_PRI = A 
1F6 = 9 0 MNR_PROSK_DSIZE s 
1FBSA_INPUT = 99 MNR-PROSK_FSIZE 2 4 
1FB$B_COL_NO = 00000004 WNR~PROSK~PSIZE = 
IFBSK_SIZE = 000000 : MNR_PROSK_REVODSIZE = Boy 
IFBSS_1FB = 000000 MNR_PROSK_REV1DSIZE = B 
INTERVAL_DEF AULT eeeeeere =X = 0) MNR_PROSL_BIOCNT = 0000 3 F 
LIBSPUT_BUFFER eeneeeee =X MNR_PROSL_CPUTIM = 00000 
LIBSSET- BUFFER eeeeeeee =X MNR_PROSL_DIOCNT = $0098 
MAX_CLASS_NO eeeeeeee =X MNR_PROSL_EF WM z 
MAX_STAT = 00000004 MNR_PROSL_EPID = ae 
MIN STAT = 00000003 MNR_PROSL_IPID = 0000 $00 
MNRS_FILSYNERR eeeeenee =X 03 MNR_PROSL_PAGEFLTS = 0000002 
MNRS- SHOWERR teeeeeeer = X 03 MNR_PROSL_PCTINT = 00000004 
MNR_CLSSB_ = 00000000 MNR_PROSL_PCTREC = 00000000 
MNR_CLSS$K_HSIZE = 0000000D MNR_PROSL_STS = 0000001F 
R_CLS$Q_STAMP = 00000003 MNR_PROSL_UIC = 00000004 
MNR_CLS$S_CLASS_HDR = 0000000D MNR_PROSO_LNAME = 00000008 
MNR_CLSSS_FILLER = 0000000F MNR_PROSS_LNAME = 00000010 
MNR_CLS$S_FLA = aaa st 4 MNR_PROS$S_PROCESS_CLASS = 00000038 
MNR_CLSS$S_STAMP = 0000000 MNR_PRO$S_PRO_CLASS_PRE = 00000008 
MNR_CLSS$V_C = 00000000 MNR_PROSW_GPGCNT = 00000018 
MNR_CLS$V_FILLER = 00000001 MNR_PROSW_PPGCNT = 0000001D 
MNR_CLSSW_FLA = 00000001 MNR_PROSW_STAT = 00000008 
MNR_CLS$W_RESERVED = 00000008 MNR_SYISB_MPCPUS = 00000000 
MNR_HDRSB_TYP = BoOnOoTS MNR_SYISB_TYP = 00000000 
MNR_HDRSK_CLASSBITS = saa MNR_SYISK_BALSETMEM = QQOO001E 
MNR_HDRSK_MAXCOML = 0000003C MNR_SYISK_CPUTY = Bon oeSS 
MNR_HORSK_REVLEVELS = 00000083 MNR-SYISK_MPWHILIM = 00000022 
ANR_HDRSK_S1Z = ss gE MNR_SYISK_NODEN = 0000000E 
MNR_HDRSL_FLAG = 000000 MNR_SYISK_SIZE = 0000002A 
MNK HDRSL_ INTERVAL = 00000015 MNR_SYISL_BALSETMEM = QOQO0001E 
MNR~HDRSL_REC = a4 T MNR_SYISL_CPUTYPE = ease tty 
MNR_HDRSO_CLA = aise 3 MNR-SYISL_MPWHILIM = 000000 $ 
MNR~HDRSO_REVOCLSBITS = 00000019 MNR-SYI$Q_BOOTTIME = 0000000 
MNR_HDRS$Q_BEG = 00000005 MNR_SYI$S_BOOTTIME = aise 
MNR_HDRS$Q_END = 0000000D MNR_SYISS_FILLER = 0000000 
MNR_HDRSS_ ING cS i 0008 MNR_SYIS$S_FLAGS = 0000000 
MNR-HDRSS_CLASSBITS = aed MNR~SYI$SS_NODENAME = 0000001 
—HDRSS_ COMMENT = 0000003C MNR_SYISS_SYS_ INFO = 0000002A 
MNR-HDRS$S_ENDING = 0 MNR_SYI$S_TYPE = 4 8 
MNR-HORSS_FILE_HDR = 1 MNR-SYIST_NODENAME = 00000 
MNR_HDRSS_FILLER = 5 MNR-SYISV_CLUSMEM = 0000000 
—HORSS_FLAGS = 4 MNR-SYISV_FILLER = 0000000 
MNR-HDORSS_LEVEL = 000 08 MNR-SYISV_RESERVED1 = 0000000 
MNR_HDR$S_REVOCLSBITS = 1 MNR~SYISW_FLAGS = 4d 
MNR_HDORS$S_REVLEVELS = MNR_SYI$W_MAXPRCCT = 00000008 
MNR_HORSS_ = MON_ERR eeeeenee 
MNR_HDRS$T_ COMMENT = MRB = 00000000 
MNR-HORST_LEVEL = MRBSA_COMMENT = 3 
MNR-HORST_REVLEVELS z MRBSA_DISPLAY 2 
Ra -HORSU-EORLER ReetA-econp = H0099836 
MNR—HOMS$K_PSIZE = 00000008 MRBSA_ SUMMARY = 00 0038 
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MRBSB_INP_FILES 2 48 OUTDSC eeneneee =X 03 
MRBSK_SIZE s 4 PROCDISPS = 00000005 
MRBSL_FLUSH 2 14 PROCD_TABLE aeeeenee =X 03 
MRBSL— INTERVAL = 1 PROCESS CLASS = 90 000 
MRBSL_VIEWING TIME 2 1 PRO_CLASS_PRE = 0 
BSM-ALL_CLASS = 9 4 QUACSA_ALC = 000 $6 
MRBSM_BY_ RODE s 0 QUALSA_AVE = 00000074 
MRBSM_DISPLAY z 38 1 QUAL$A_BEG = 3 0 o% 
MRBSM_DISP_TO FILE = 0 QUALSA_BY_NODE = 0054 
MRBSM_DIS CLR z 98 1 8 QUALSA_CLASS = 0000005¢ 
MRBSM_INDE = 0000001 QUALSA_COMM = 0000004C 
MRBSM_INP CL_REQ = 9000 4 QUALSA_CP s B0000AC 
MRBSM_MF SOM = 0 QUALSA_ s $f 
MRBSM_PLAYBACK = 0000000 QUALS$A_DISP = 00000034 
MRBSM_PROC REQ = BOObGONS QUALSA_ = 0000000C 
MRBSM_RECORD = i O008 QUALSA_FLUSH = 0000001C 
MRBSM_REC CL_REQ = 000000 QUALSA_I = 0000002C 
MRBSM_ q = 00000 oe QUAL$A_IN = 00000014 
MRBSM_SUM_CL_REQ = 00000200 QUALSA_ITEM = 0000008C 
MRBSM_SYSCLS = B00 0 UALSA_MAX = 00000084 
MRBSO_CLASSBITS = 00000032 UALSA_ = 0000007C 
MRBS$Q_BEGINNING = 00000000 QUALSA_PCENT z 0080 00Re 
MRBS$Q_ENDING = 00000008 QUALSA_ = 0000003C 
MRB$S_BEGINNING = 00000008 QUALSA_SUMM = 00000044 
MRBSS_CLASSBITS = 00000010 QUAL$A_TOPB = 0000009¢ 
MRBS$S_ENDING = 00000008 QUAL$A_TOPC = 0000008C 
MRBSS_FLAGS = 90000008 QUAL$A_TOPD = 00000094 
MRBSS_MRB = 0000004 QUAL$A_TOPF = 000000A4 
MRBSV_ALL_ CLASS = 0000000A QUALSA_VIEW = 4h tg 
MRBSV_BY = 0000000C QUALSL_ALL = 00000060 
MRBSV_DISPLA = 00000000 QUALSL_AVE = 00000070 
MRBSV_DISP_TO_FILE = 00000005 UALS$L_ = 00000000 
MRBSV_DIS_CL_R = 00000008 QUAL$L_BY_NODE = 90000029 
MRBSV_FILCER = ine QUALSL_CLASS = 00000058 
MRBSV_INDEF END = 00000004 QUALSL_COMM = 00000048 
MRBSV_INP_CL_REQ s 80000006 QUALSL_CPU = 000000A8 
MRBSV_MF SOM = 00 00008 QUALSL_CU = 30000068 
MRBSV_PLAYBACK = 0000000 QUALSL_DISP = 444 0 
MRBSV_PROC_REQ = Q000000E QUALSL_ = S44 SE 
MRBSV_REC = $90 00001 QUALSL-FLUSH = 3009 O18 
MRBSV_REC_CL_REQ = 00000007 QUAL$L~1 = 0000002 
MRBSV_S = si 4 3 QUALSL_IN = 00000010 
MRBSV~SUM_CL_REQ = 0000000 QUALSL~ITEM = 00000088 
MRBSV-SYSCL = 8 000 9 QUALSL_MAX z 90008 9 
MRBSW_CLASSCT = QUALSL_MI = 
MRBSW_FLAGS = 004 QUALSL_PCENT = 000 Oo8 
NAMSB_ESL = QUALSL_ = 000000 
NAM$B_ESS s A QUALSL-SUMM = 000 0% 
NAM$B_NOP s QUAL$L-TOPB = 0000009 
NAM$B_RSS = QUAL$L—-TOPC = 008 
NAMSC_BID s QUAL$L-TOPD = 09 
NAM$C_BLN s 6 QUALSL_TOPF 2 A 
NAMSC_MAXRSS z FF QUALSL-VIEW = 2 
NAMSL_ESA z ¢ QUAL$S- QUAL IF IER_DESC = 3 ¢ 
Raney ca = HUB auatpier-oes *Gieeese x 03 
= 
NO_CLASS_HDG 3 R 01 REG_PROC = 00000000 
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RMS$_SYN eeeeneee =X 3 
RV_STR 9 9 R 1 
SAC_RET a 
Stan ET ASSES 0 48 R 
SCR RSPUT_ LINE kee RE RH x 
SCRSSET “buTPUT eeenenee 8 6X 
SCRSS TOP OUTPUT eeeeenee =X 
SCRD Reeekeee x 
ek 0000208 R 
SHC_NORM 00048D R 
SHC_RET 000494 R 0 
SHD_ERR it ifs R 8 
SHD_RET 4 3 My 
SHOBEF _CMD B60 4 RG 03 
SHOW_A LINE 000508 RG 03 
SHOW _ “CCASSES tte d RG 8 
S QOO004F6 R 3 
SHOW- DOUBLE QOOO04F4 R 03 
SH QOOOOOFS R 01 
shou ante QO0001A8 R 01 
FILE Tr 4's td R 03 
HOWTINPUT a UAL 00000 oF R 03 
-" 00000148 R 01 
SHOW_QU 00000304 R 03 
SHOWS INGLE 0 Bash8 & 03 
SHOW SPEC_D 00002A7 R 01 
SHO_END OOOOOFB R 03 
SHO_FILES 00000180 R 03 
SHO_FLUSH 00000178 R 03 
» QO0000A2 R 03 
SHO_VIEW QO00013E R 03 
SS$_NORMAL eereeeee = =X 8 03 
STATS = 00000005 
STAT_TABLE eeeeeeee 03 
SYSSFAOL eeekeeee 03 
SYSSPARSE eeekeene 03 
SYS_INFO = 0000000 
TOPB_PROC = 0000000 
TOPC_PROC = 00000001 
TOPD_PROC = 00000002 
TOPF PROC = 00000004 
VIEWING_DEF AULT teeeeeee = § X 03 
free ocw ease ereaveces & 
! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
, 6 0000008 ( 0.) 00 ¢ OO.) NOPIC USR CON ABS’ LCL oe rt NOEXE NORD NOWRT NOVEC BYTE 
MONDATA 00 ( 691.) Q1 1.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC QUAD 
SABSS 8 00000 <¢ 0.) 8 ( ¢°} NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SSMONCODE 0000556 ( 1366.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
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¢ ew mre emma ese emo aew neato e } 


! Performance indicators ! 


tamer emo Hwee wee mewn eww on $+ 


Phase Page faults CPU Time Elapsed Time 


Initialization 8 8:00: +98 0: 8: 9.) 
Command processing 1 9 :00:00.79 00:00:03.4 
Pass 1 30 8: 08.53 0:00:26.3 
Symbol table sort :00:01.1 0:00: a8 
Pass 2 17 8: : 5:3 8: : 
Symbol table output 4 :00:00. :00:01. ; 
Psect synopsis output 0:00: 8:5 0:00:00.0 
Cross-reference output BR: e- : 0:00:00.0 
Assembler run totals 68 00:00:13.4 00:00:43.9 


The working set Limit was 1650 pages. 

48455 bytes (95 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table space allocated to hold 828 non-local and 40 local symbols. 
942 source Lines were read in Pass 1, producing 28 object records in Pass 2. 

37 pages of virtual memory were used to define 22 macros. 


-omem aware nraananwaon nanan eocaoan oa 


H Macro Library statistics : 


Macro Library name Macros defined 
-$255$DUA28 : CMONTOR.OBJ JMONLIB.MLB; 1 4 
-3255$DUA28: CSYS.OBJIJLIB.MLB; 1 0 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 14 
TOTALS (all Libraries) 18 


1007 GETS were required to define 18 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SHODEF /OBJ=OBJ$:SHODEF MSRC$:SHODEF /UPDATE=(ENHS$: SHODEF ) +EXECML$/L1B+LIB$:MONLIB/LIB 
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